;Calvin Nelms
;Due:03.29.12
;Instructor: Dr Page
;tests

;30 - 50 tests
(include-book "testing" :dir :teachpacks)
(include-book "avl-prp")
(include-book "avlModule")

;check-valid-y-tst
;(check-expect (check-valid-y 1 2) '(make-posn 1 10))

;create-y
(check-expect (create-y 110 '(111 112 113)) '((110 111) (110 112) (110 113)))
(check-expect (create-y 0 '()) nil)

;create=x
(check-expect (create-x '(110 111 112) '(113 114 115)) '(((110 113) (110 114) (110 115)) ((111 113) (111 114) (111 115))((112 113) (112 114) (112 115))))
(check-expect (create-x 0 '()) nil)

;avl-retrieve
(check-expect (avl-retrieve '(2 (1 30) (test value) nil (1 (2 15) (test1 value1) nil nil)) '(1 30)) '((1 30) test value))
(check-expect (avl-retrieve '(2 (2 30) (test value) nil (1 (2 15) (test1 value1) nil nil)) '(0 30)) nil)

;find-best-combination
(check-expect (find-best-combination '(112 113 114)) '(nil nil nil))

;;;;;;;Will have to change due to different score
;create-all-possible-combinations
(check-expect (create-all-possible-combinations '(110 111 112) '(113 114 115)) '(((110 113) (110 114) (110 115))((111 113) (111 114) (111 115))((112 113) (112 114) (112 115))))
(check-expect (create-all-possible-combinations nil nil) nil)

(check-expect (check-to-stop-switching nil nil) nil)

;compare-scores-between-team-sets
(check-expect (compare-scores-between-team-sets '(1 30) '(2 40) '(2
 (1 30)
 (2 111 (dave '(list of specialties 2)) (1 110 (calvin '(list of specialties 1)) nil nil) (1 112 (ed '(list of specialties)) nil nil))
 nil
 (1 (2 40) (2 111 (dave '(list of specialties 2)) (1 110 (calvin '(list of specialties 1)) nil nil) (1 112 (ed '(list of specialties)) nil nil)) nil nil))) '(2 40))


;(2 111 (dave '(list of specialties 2)) (1 110 (calvin '(list of specialties 1)) nil nil) (1 112 (ed '(list of specialties)) nil nil))



